﻿


Class frmCopyWizard

#Region "Properties"
    Private mSourceName As String = ""
    Private mDestString As String = ""

    Public ReadOnly Property SourceName() As String
        Get
            Return mSourceName
        End Get
    End Property

    Public ReadOnly Property DestString() As String
        Get
            Return mDestString
        End Get
    End Property
#End Region

    Private Sub lnkChangeSource_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkChangeSource.LinkClicked
        If frmMTExplorer.ShowDialog(frmMTExplorer.BrowserTypeEnum.WithFile) = Windows.Forms.DialogResult.OK Then
            txtSource.Text = frmMTExplorer.SelectedPath

            If frmMTExplorer.SelectedType = frmMTExplorer.TypeSelected.Folder Then
                'check the folder count, file count, total sizes
                Dim mFolderCount As Integer = 0
                'count all the subdirectories under this directory
                '
                'count all files
                '
            Else
                'get file size
                Dim mfilesize As Double = 0
                'filesize = IO.File.GetAttributes (frmMTExplorer.SelectedFile).s

            End If
        End If
    End Sub

    Private Sub lnkChangeDest_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkChangeDest.LinkClicked
        If frmMTExplorer.ShowDialog(frmMTExplorer.BrowserTypeEnum.FolderOnly) = Windows.Forms.DialogResult.OK Then
            txtDest.Text = frmMTExplorer.SelectedPath
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
    End Sub



    Private Sub frmCopyWizard_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'reset the destination and sources
        mSourceName = ""
        mDestString = ""

        txtDest.Text = ""
        txtSource.Text = ""

    End Sub

End Class